home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / editor / cedrexx.lha / cedrexx_scripts / GVLineStrip.ced < prev    next >
Text File  |  1996-05-07  |  1KB  |  34 lines
  1. /************************************************************\
  2. ** $VER: GVLineStrip.ced 1.0                                **
  3. ** By  : James Allen (AKA $LiNg$HoT)                        **
  4. ** Date: September 94                                       **
  5. ** Rel : May 96.                                            **
  6. ** Description :                                            **
  7. **                                                          **
  8. **     - Strips the dividing lines from an exported GrapeVine **
  9. **     (Diskmag) document.                                  **
  10. **   - Press a key to abort at any time.                    **
  11. **                                                          **
  12. \************************************************************/
  13.  
  14. address 'rexx_ced'
  15.  
  16. OPTIONS RESULTS
  17.  
  18. CEDTOFRONT
  19.  
  20. SEARCH FOR '--------------------------------------------------------------------------------'
  21.  
  22. do while(RESULT ~= 0)
  23.     IF RESULT ~= 0 then
  24.         DELETE LINE
  25.     LASTKEY
  26.     /* Check for a keystroke (~= -1) which is not an key release (< 128) */
  27.     IF (RESULT ~= -1) & (WORD( RESULT, 1 ) < 128) THEN DO
  28.         CEDTOFRONT
  29.         OKAY1 "GrapeVine StripLine Aborted!"
  30.         EXIT
  31.     END
  32.     SEARCH FOR '--------------------------------------------------------------------------------'
  33. End 
  34.